home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 35 / 035.d81 / moving walls (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  135 lines
  1. 1 rem moving walls
  2. 2 poke53272,(peek(53272)and240)or14
  3. 10 poke53280,4:poke53281,1
  4. 15 joy=56320:s=54272
  5. 20 print"[147]";
  6. 30 fort=1to21:print"[151] ";:next
  7. 40 fort=1to20:print"[157] ";:next
  8. 50 fort=1to20:print"[157][157] ";:next
  9. 60 fort=1to20:print"[145][157] ";:next
  10. 65 print"[197][216][201][212]"
  11. 68 print"";
  12. 70 forrt=1to4:print"[149][191][191][191][191]":next
  13. 80 print"[149][160][160][160][160][160][160][157][157][157][157][157][157]";
  14. 90 fort=1to10:printt,"[157][157][160][157][157][157][157][157][157]";:next
  15. 92 print"";
  16. 93 fort=1to11:print"[160][157]";:next
  17. 95 print"[160][160][160][160][160][160]";
  18. 100 print"[160][157][160][157][160][157][160][157][160][157][160][157][160][157][160][157][160]";
  19. 110 x=3:y=3:v=1130
  20. 120 forpl=1to10
  21. 125 poke198,0
  22. 130 gosub1000
  23. 140 poke1024+y*40+x,95:poke55296+y*40+x,6:ifx=19andy=19then2000
  24. 150 print"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][205][207][214][197]"
  25. 152 print"[157][157][157][157][157][157][157][157][157][157][144][208]ress '[209]'"
  26. 154 print"[157][157][157][157][157][157][157][157][157][144]to quit"
  27. 160 geta$:j%=peek(joy)
  28. 162 ifa$=""andj%=127then160
  29. 163 ifa$="[133]"thenrun
  30. 165 ifa$=" "orj%=111thenifsp<>2thensp=1:gosub1000
  31. 170 ifa$=""orj%=119thenifpeek(1024+y*40+x+2)=160then160
  32. 175 ifa$=""orj%=119thenpoke1024+x+y*40,32:x=x+4:goto210
  33. 180 ifa$="[157]"orj%=123thenifpeek(1024+y*40+x-2)=160then160
  34. 185 ifa$="[157]"orj%=123thenpoke1024+x+y*40,32:x=x-4:goto210
  35. 190 ifa$=""orj%=125thenifpeek(1024+(y+2)*40+x)=160then160
  36. 195 ifa$=""orj%=125thenpoke1024+x+y*40,32:y=y+4:goto210
  37. 200 ifa$="[145]"orj%=126thenifpeek(1024+(y-2)*40+x)=160then160
  38. 205 ifa$="[145]"orj%=126thenpoke1024+x+y*40,32:y=y-4:goto210
  39. 206 ifa$="q"ora$="[209]"thengosub 12000
  40. 207 goto160
  41. 210 ifpl<11thenpokev,224:pokev+1,224:pokev+54272,3:pokev+54272+1,3
  42. 215 v=v+40
  43. 230 next:ifx=19andy=19then2000
  44. 240 sh=1:gosub3000:gosub11000:fordl=1to500:next: rem die
  45. 242 sys51459:poke53272,(peek(53272)and240)or14
  46. 250 print"[147][208]ress [211][208][193][195][197][146] to [208]lay [193]gain."
  47. 252 print"[208]ress [209][146] to quit."
  48. 260 poke198,0:wait198,1:geta$
  49. 262 ifa$=" "thenrun
  50. 264 ifa$<>"q"anda$<>"[209]"then260
  51. 270 goto5000
  52. 999 :
  53. 1000 print"[144]";
  54. 1010 fort=1to4:forr=1to4
  55. 1020 print"[146][145][157] [145][157] [145][157]    [157][157][157][157][157][157][157]   [157] [157] [157] [145][145][145][145][145][145]";:next
  56. 1030 print:print"";:next
  57. 1035 ifsp=1thenpokev,224:pokev+1,224:pokev+54272,3:pokev+54273,3:v=v+40:pl=pl+2
  58. 1037 ifsp=1thenpokev,224:pokev+1,224:pokev+54272,3:pokev+54273,3:v=v+40
  59. 1039 ifsp=1thensp=2:ifpl>16then240
  60. 1040 print"";
  61. 1050 fort=1to4:forr=1to4
  62. 1060 a=int(rnd(ti)*4)+1
  63. 1070 onagosub1100,1200,1300,1400
  64. 1080 next
  65. 1090 print:print"";:next:return
  66. 1100 print"[145][157] [145][157] [145][157] ";:return
  67. 1200 print"   [145][145][145][157][157]";:return
  68. 1300 print"[157]   [145][145][145]";:return
  69. 1400 print"[157] [157] [157] [145][145][145][145][145][145]";:return
  70. 1999 :
  71. 2000 :
  72. 2050 sh=0:gosub3000:gosub10000: rem win
  73. 2060 goto242
  74. 3000 rem plot shape
  75. 3010 poke249,224:poke250,204
  76. 3020 poke251,0:poke252,64
  77. 3030 poke253,0:poke254,0
  78. 3040 poke255,sh
  79. 3050 sys51462:sys51459:poke53272,(peek(53272)and240)or14
  80. 3060 return
  81. 3070 :
  82. 5000 rem return to ls
  83. 5010 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  84. 5020 ifer<>63thenprint"[147]":end
  85. 5025 poke53272,21:poke55,.:poke56,160
  86. 5030 load"hello connect",8
  87. 10000 rem win sound
  88. 10010 forag=1to2
  89. 10011 fordl=1to100:next
  90. 10012 poke s+1,14
  91. 10020 poke s+5,3
  92. 10030 poke s+6,240
  93. 10040 poke s+24,15
  94. 10050 poke s+4,17
  95. 10060 ford=6to10
  96. 10070 ford1=1to12stepsin(d)
  97. 10080 pokes+1,4*d1:pokes+4,17
  98. 10090 next
  99. 10100 nextd
  100. 10110 poke s+4,16
  101. 10120 fordl=1to10:next
  102. 10150 poke s+1,14
  103. 10160 poke s+5,3
  104. 10170 poke s+6,240
  105. 10180 poke s+24,15
  106. 10190 poke s+4,17
  107. 10200 ford=6to10
  108. 10210 ford1=1to12steplog(d)
  109. 10220 pokes+1,4*d1:pokes+4,17
  110. 10230 next
  111. 10240 nextd
  112. 10250 poke s+4,16
  113. 10300 next ag
  114. 10310 return
  115. 10320 :
  116. 11000 rem lose sound
  117. 11005 forag=1to3
  118. 11010 poke s+1,14
  119. 11020 poke s+5,3
  120. 11030 poke s+6,255-15
  121. 11040 poke s+24,15
  122. 11050 poke s+4,17
  123. 11060 ford=11to110step8:pokes+1,d:pokes+4,63:pokes+1,255-d:pokes+4,17:next
  124. 11070 poke s+4,16
  125. 11080 next ag
  126. 11090 return
  127. 12000 rem quit?
  128. 12010 print"  [193]re you sure you want to quit ([217]/[206])?[144]"
  129. 12020 poke198,0:wait198,1:geta$
  130. 12030 ifa$="y"ora$="[217]"then5000
  131. 12040 ifa$="n"ora$="[206]"then12060
  132. 12050 goto12020
  133. 12060 print"                                      ";
  134. 12070 return
  135.